home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / programming / mui / mcc_monthnavigator / developer / modula / txt / mccmonthnavigator.def next >
Text File  |  1997-12-06  |  2KB  |  72 lines
  1. DEFINITION MODULE MCCMonthNavigator;
  2.  
  3. (*
  4. **
  5. ** Copyright © 1996-1997 Kai Hofmann. All rights reserved.
  6. ** Registered MUI custom class!
  7. **
  8. ** $VER: MCCMonthNavigator.def 16.5 (21.08.97)
  9. **
  10. ** M2 interface model by Olaf Peters <olf@informatik.uni-bremen.de>
  11. **
  12. *)
  13.  
  14.   FROM SYSTEM    IMPORT ADDRESS,BYTE;
  15.   FROM UtilityD    IMPORT TagItemPtr;
  16.  
  17.  
  18.   CONST
  19.     mcMonthNavigator            = "MonthNavigator.mcc";
  20.  
  21.     maMonthNavigatorShowWeekdayNames    = 81EE0005H;
  22.     maMonthNavigatorShowWeekNumbers    = 81EE0006H;
  23.     maMonthNavigatorInput        = 81EE0009H;
  24.     maMonthNavigatorUseFrames        = 81EE000AH;
  25.     maMonthNavigatorShowInvisibles    = 81EE000BH;
  26.     maMonthNavigatorWeekdayNamesSpacing    = 81EE000CH;
  27.     maMonthNavigatorWeekNumbersSpacing    = 81EE000DH;
  28.     maMonthNavigatorLineWeekdayNames    = 81EE000EH;
  29.     maMonthNavigatorLineWeekNumbers    = 81EE000FH;
  30.     maMonthNavigatorDraggable        = 81EE0012H;
  31.     maMonthNavigatorMarkHook        = 81EE0013H;
  32.     maMonthNavigatorDropable        = 81EE0014H;
  33.     maMonthNavigatorDragQueryHook    = 81EE0015H;
  34.     maMonthNavigatorDragDropHook    = 81EE0016H;
  35.     maMonthNavigatorShowLastMonthDays    = 81EE0017H;
  36.     maMonthNavigatorShowNextMonthDays    = 81EE0018H;
  37.  
  38.     mmMonthNavigatorUpdate        = 81EE0010H;
  39.  
  40.     mvMonthNavigatorInputModeNone    = 0;
  41.     mvMonthNavigatorInputModeRelVerify    = 1;
  42.     mvMonthNavigatorInputModeImmediate    = 2;
  43.  
  44.     mvMonthNavigatorMarkHookHiToday    = 1;
  45.  
  46.     mvMonthNavigatorMarkDayVersion    = 1;
  47.  
  48.  
  49.   TYPE
  50.     mpMonthNavigatorUpdate =
  51.       RECORD
  52.         MethodID : LONGCARD;
  53.       END;
  54.  
  55.     msMonthNavigatorMarkDay =
  56.       RECORD
  57.         Version        : LONGCARD;
  58.         Year        : LONGINT;
  59.         Month        : SHORTCARD;
  60.         Day        : SHORTCARD;
  61.  
  62.         PreParse    : POINTER TO CHAR;
  63.         Background    : LONGCARD;
  64.         ShortHelp    : POINTER TO CHAR;
  65.         Disabled    : BOOLEAN;
  66.       END;
  67.  
  68.  
  69.   PROCEDURE MonthNavigatorObject(tags : TagItemPtr) : ADDRESS;
  70.  
  71. END MCCMonthNavigator.
  72.